﻿Imports clases
Public Class frmBorrar


    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        If txtenunciado.Text = "" Then
            MessageBox.Show("Escribe el enunciado")
            Exit Sub
        End If
        
        Dim mens As String = frm.miTest.Borrar(New Pregunta(txtenunciado.Text, False))
        If mens <> "" Then
            MessageBox.Show(mens)
            txtenunciado.Text = ""

            Exit Sub
        End If
        txtenunciado.Text = ""


    End Sub

    Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub
End Class